home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / misc / c++.c < prev    next >
C/C++ Source or Header  |  1992-10-05  |  567b  |  28 lines
  1. #include "scheme.h"
  2.  
  3. #ifdef USE_ATTC_PLUS_PLUS
  4. #  define set_new_handler set_new_handler__FPFv_v
  5. #endif
  6.  
  7. static Object New_Handler;
  8.  
  9. static void New_Handler_Proc () {
  10.     (void)Funcall (New_Handler, Null, 0);
  11. }
  12.  
  13. static Object P_Set_New_Handler (p) Object p; {
  14.     Object old;
  15.  
  16.     Check_Procedure (p);
  17.     old = New_Handler;
  18.     New_Handler = p;
  19.     return old;
  20. }
  21.  
  22. init_lib_cplusplus () {
  23.     New_Handler = Null;
  24.     Global_GC_Link (New_Handler);
  25.     set_new_handler (New_Handler_Proc);
  26.     Define_Primitive (P_Set_New_Handler, "set-c++-new-handler!", 1, 1, EVAL);
  27. }
  28.